home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sacred & Secular
/
Sacred and Secular.iso
/
pc
/
movies
/
shared.dir
/
05037_Script_5037
< prev
next >
Wrap
Text File
|
1996-04-03
|
4KB
|
180 lines
on buildList
set l = the number of lines in the labelList
set theList = []
repeat with i = 1 to l
add theList, line i of the labelList
end repeat
put thelist
end
on setUpHelpList
global gHelpLabels
set gHelplabels = [¨
"Egypt", "EgyptText", "Essay", "Geo", "Greece", "GreeceText", "Guide", "Meet", ¨
"Mexico", "MexicoText", "Meander", "Peru", "Photo", "PhotoText", "Main", "UK", ¨
"UKText", "USA", "USAText", "PeruText", "TimeLine", "Visual"]
end
on moveHelp
repeat with i = 15 to 22
put i
unloadCast
maxMem()
copyToClipBoard cast i
pasteClipBoardInto cast (5050+i)
saveMovie
end repeat
end
on moveHelp2
global gHelpLabels
repeat with i = 1 to 22
put i
unloadCast
maxMem()
set the name of cast (5050+i) = getAt(gHelpLabels, i) && " help"
saveMovie
end repeat
end
on doHelp
global gHCn, gP47
cursor 4
pauseQTSound
--
--
-- Note: Peru2 & Peru3 test below ARE NOT a bug, but the frames were
-- originally ordered 2, 1, 3. Left that was - DMD
--
set hLabel = ""
if marker(0) = label("Approaches") then set hLabel = "Main"
else if marker(0) = label("Meander") then set hLabel = "Meander"
else if marker(0) = label("Guide") then set hLabel = "Guide"
else if marker(0) = label("Cap2") then set hLabel = "Photo"
else if marker(0) = label("Meet") then set hLabel = "Meet"
else if marker(0) = label("Essay1") then set hLabel = "Essay"
else if marker(0) = label("Essay2") then set hLabel = "Essay"
else if marker(0) = label("Essay3") then set hLabel = "Essay"
else if marker(0) = label("Global") then set hLabel = "Geo"
else if marker(0) = label("Greece1") then set hLabel = "Greece"
else if marker(0) = label("Egypt1") then set hLabel = "Egypt"
else if marker(0) = label("Timeline") then set hLabel = "Timeline"
else if marker(0) = label("UK1") then set hLabel = "UK"
else if marker(0) = label("Mexico1") then set hLabel = "Mexico"
else if ¨
the frame > label("visual1") and ¨
the frame < (label("visual2")+2) then set hLabel = "Visual"
else if ¨
the frame > label("0Text") and ¨
the frame < (label("99Text")+2) then set hLabel = "PhotoText"
else if ¨
the frame > label("EgyptText1") and ¨
the frame < (label("EgyptText6")+2) then set hLabel = "EgyptText"
else if ¨
the frame > label("GreeceText1") and ¨
the frame < (label("GreeceText4")+2) then set hLabel = "GreeceText"
else if ¨
the frame > label("UKText1") and ¨
the frame < (label("UKText3")+2) then set hLabel = "UKText"
else if ¨
the frame > label("US1") and ¨
the frame < (label("US4")+2) then set hLabel = "USA"
else if ¨
the frame > label("PeruText1") and ¨
the frame < (label("PeruText5")+2) then set hLabel = "PeruText"
else if ¨
the frame > label("Peru2") and ¨
the frame < (label("Peru3")+2) then set hLabel = "Peru"
else if ¨
the frame > label("Mexicotext1") and ¨
the frame < (label("Mexicotext5")+2) then set hLabel = "MexicoText"
else if ¨
the frame > label("UStext1") and ¨
the frame < (label("UStext8")+2) then set hLabel = "USAText"
else beep
if hLabel = "" then exit
set gHCn = the castNum of sprite 47
set gP47 = the puppet of sprite 47
puppetSprite 47, 1
set the type of sprite 47 = 1
set the foreColor of sprite 47 = 255
set the backColor of sprite 47 = 0
set the locV of sprite 47 = 240
set the locH of sprite 47 = 320
set the castNum of sprite 47 = cast (hLabel && " help")
updateStage
cursor -1
set the mouseDownScript = "ClearHelp"
repeat while not the mouseDown
end repeat
startTimer
end
on clearHelp
global gHCn, gP47
set the mouseDownScript = ""
set the castNum of sprite 47 = gHCn
puppetSprite 47, gP47
updateStage
unPauseQTSound
end
on doBiblio
go to "Biblio"
end
on doCredits
go to "Scrolling"
end
on doQuit
repeat with i = 1 to 48 do
set the visible of sprite i = 0
puppetSprite i, 0
end repeat
updateStage
set the visible of sprite 1 = 1
set the visible of sprite 2 = 1
if the movie = "BRIDGES.DIR" then
go to "Credits"
else
go to frame "Credits" of movie "BRIDGES.DIR"
end if
end